home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 47 / MOBICLIC 47.ISO / mac / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00039_Script_39 < prev    next >
Text File  |  2002-09-19  |  1KB  |  56 lines
  1. -- scripts menu Θquerre verte
  2.  
  3. global validMHD,rollMessHD,menuMsg,fermeMenuHD, menuFermeHD,pisteMenuHD,menuOuvert
  4. -- validMHD : liste donnant les items du menu sΘlectionnables
  5. -- rollMessHD : indique sur quel item du menu a lieu le rollOver
  6. -- menuMsg : message renvoyΘ par le menu α sa fermeture
  7.  
  8. -- la souris quitte le menu
  9. on mouseLeave
  10.   if menuMsg <> empty then
  11.     masqueMenu
  12.   end if
  13.   masqueMenu
  14. end mouseLeave
  15.  
  16. -- clic dans menu
  17. on mouseUp
  18.   if rollMessHD <> "nul" then
  19.     put rollMessHD
  20.     set menuMsg = rollMessHD
  21.     masqueMenu
  22.   else
  23.     set menuMsg = empty
  24.   end if
  25.   if voidP(menuMsg)<>1 then
  26.     gestMenus
  27.   end if
  28.   set menuMsg = empty
  29. end mouseUp
  30.  
  31. -- dissimulation du menu
  32. on masqueMenu
  33.   cursor -1
  34.   set fermeMenuHD=1
  35.   repeat while menuFermeHD<>1
  36.     temporise(0.01)
  37.     updateStage
  38.   end repeat
  39.   put "    Fermeture Θquerre verte"
  40.   masquerPistes the currentSpriteNum
  41.   set the memberNum of sprite(pisteMenuHD)=the number of member "pointPourGlisserSur"
  42.   set menuOuvert = 0
  43. end masqueMenu
  44.  
  45. -- repΘrage de la piste du menu Θquerre verte
  46. on beginSprite
  47.   set pisteMenuHD = the currentSpriteNum
  48.   masquerPistes pisteMenuHD
  49. end
  50.  
  51. -- fermeture du menu si restΘ ouvert
  52. on exitFrame
  53.   if menuFermeHD=1 and menuOuvert="HD" then
  54.     masqueMenu
  55.   end if
  56. end